home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aab.d64 / proc.backup < prev    next >
Text File  |  2007-02-28  |  674b  |  25 lines
  1. 0010 // ╒╙┼ SYSTEM
  2. 0020 // DEFKEY(8,""147"SCAN"13"BACKUP(""SAVE"",""NAME"")"13"") // WRAP LINE
  3. 0030 ╨╥╧├ BACKUP(ACTION$,F$) ├╠╧╙┼─
  4. 0040   ╒╙┼ SYSTEM
  5. 0050   ╔╞ ╠┼╬(F$)>16 ╘╚┼╬ F$:=F$(1:16)
  6. 0060   ─╔═ FL$ ╧╞ 16
  7. 0070   FL$:=F$+".BK"
  8. 0080   ╔╞ ╠┼╬(FL$)=16 ╘╚┼╬
  9. 0090     FL$(14:16):=".BK"
  10. 0100   ┼╬─╔╞ 
  11. 0110   ─┼╠┼╘┼ FL$
  12. 0120   ╘╥┴╨ 
  13. 0130     ╨┴╙╙ "R0:"+FL$+"="+F$
  14. 0140   ╚┴╬─╠┼╥ 
  15. 0150     ╬╒╠╠ // IF BACKUP FILE DOESN'T EXIST
  16. 0160   ┼╬─╘╥┴╨ 
  17. 0170   ╨┴╟┼
  18. 0180   ╨╥╔╬╘ ┴╘ 10,5: ACTION$+"""0:",F$,""""
  19. 0190   ╨╥╔╬╘ ┴╘ 11,5: "├┴╘"
  20. 0200   ├╒╥╙╧╥ 10,1
  21. 0210   ╨╧╦┼ 198,2 // CAUSES AN AUTOMATIC
  22. 0220   ╨╧╦┼ 631,13 // LIST AND DIRECTORY
  23. 0230   ╨╧╦┼ 632,13 // LISTING
  24. 0240 ┼╬─╨╥╧├ BACKUP
  25.